home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr50 / bcc101.zip / QBCODE.ZIP / ZPRINT.BAS < prev   
BASIC Source File  |  1993-03-20  |  2KB  |  53 lines
  1. '*********************************************************************
  2. '* FileName: ZPrint  by  Lee Herron @ 1:3612/130 fido                *
  3. '* Copyright 1993 by Lee Herron                                      *
  4. '* ----------------------------------------------------------------- *
  5. '* Description: For use in coding color into large text displays,    *
  6. '* much quicker method of changing colors than using color ?,?       *
  7. '* everytime. I hope you find it of some help. Hint: Don't use zPrint*
  8. '* on every line.                                                    *
  9. '* Origin: NightFlight BBS Pensacola,FL 16.8HST/DS (1:3612/130)      *
  10. '*********************************************************************
  11. DEFINT A-Z
  12. DECLARE SUB zPrint (z$)
  13.  
  14. ' ASCII TABLE:
  15. '128 Ç black   '136 ê hblack
  16. '129 ü blue    '137 ë hblue
  17. '130 é green   '138 è hgreen
  18. '131 â cyan    '139 ï hcyan
  19. '132 ä red     '140 î hred
  20. '133 à magenta '141  hmagenta
  21. '134 å brown   '142 Ä hbrown
  22. '135 ç white   '143 Å hwhite
  23.  
  24. CLS
  25. LOCATE 11, 6
  26. zPrint "éÇThis is a sample string using èÇ<ÄÇZPrintèÇ>éÇ to "
  27. PRINT "Highlight specific words!"      ' see Hint !
  28.  
  29. SUB zPrint (z$) STATIC
  30.  
  31. y = CSRLIN: x = POS(0): cflag = 0
  32.  
  33. FOR z = 1 TO LEN(z$)
  34.    a = ASC(MID$(z$, z, 1)): m$ = CHR$(a)
  35.    IF a = 145 THEN
  36.       PRINT
  37.    ELSE
  38.       IF a < 128 THEN
  39.          PRINT m$;
  40.          cflag = 0
  41.       ELSE
  42.          IF cflag THEN
  43.             COLOR , a - 128: cflag = 0
  44.             'Set background color because previous character was a color.
  45.          ELSE
  46.             COLOR a - 128: cflag = 1
  47.             'Set foreground color because prev. char was a letter.
  48.          END IF
  49.       END IF
  50.    END IF
  51. NEXT z
  52. END SUB
  53.